home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ MSDOSSYS 1.xpl < prev    next >
Text File  |  1999-09-25  |  3KB  |  103 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="System\Windows 95/98 Boot Options"
  5. "NAME"="General Options"
  6. "VERSION"="1.54"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Start Windows automatically"
  9. "TEXT 2"="Display Windows logo while booting"
  10. "TEXT 3"="Enable F4,F5,F6 and F8 keys while booting"
  11. "TEXT 4"="Display bootmenu before starting"
  12. "TEXT 5"="Display warning before using "Safe Mode""
  13. "DESCRIPTION 1"="Change the options here to control what Windows 95/98 do on bootup."
  14. "DESCRIPTION 2"="NOTE: Some of these items may not work on Windows 98 Second Edition."
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  18.  
  19.  
  20. 'Declaration of some constants
  21. sF="C:\MSDOS.SYS"
  22. sO="OPTIONS"
  23.  
  24. 'Called when the Plugin is started
  25. Sub Plugin_Initialize
  26.  If GetWinVer=1 or GetWinVer=3 then
  27.   Call FileSetAttribute(sf,"S-")
  28.   Call FileSetAttribute(sf,"R-")
  29.   Call FileSetAttribute(sf,"H-")
  30.  
  31.  
  32.   i=IniReadValue(sf,so,"BootGUI")
  33.   if i=1 then SetUIElement 1,true
  34.  
  35.   i=IniReadValue(sf,so,"Logo")
  36.   if i=1 then SetUiElement 2,true
  37.  
  38.   i=IniReadValue(sf,so,"BootKeys")
  39.   if i=1 then SetUiElement 3,true
  40.  
  41.   i=IniReadValue(sf,so,"BootMenu")
  42.   if i=1 then SetUiElement 4,true
  43.  
  44.   i=IniReadValue(sf,so,"BootWarn")
  45.   if i=1 then SetUiElement 5,true
  46.  
  47.  else
  48.   Disable
  49.  end if
  50. End Sub
  51.  
  52. 'Called when the Plugin should validate the Data the user has entered
  53. Sub Plugin_CheckData(ElementIndex)
  54. End Sub
  55.  
  56. 'Called when the Plugin should apply the changes
  57. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  58.  
  59.  b=GetUIElement(1)
  60.  if b=true then
  61.   Call IniWriteValue(sf,so,"BootGUI",1)
  62.  else
  63.   Call IniWriteValue(sf,so,"BootGUI",0)
  64.  end if
  65.  
  66.  b=GetUIElement(2)
  67.  if b=true then
  68.   Call IniWriteValue(sf,so,"Logo",1)
  69.  else
  70.   Call IniWriteValue(sf,so,"Logo",0)
  71.  end if
  72.  
  73.  b=GetUIElement(3)
  74.  if b=true then
  75.   Call IniWriteValue(sf,so,"BootKeys",1)
  76.  else
  77.   Call IniWriteValue(sf,so,"BootKeys",0)
  78.  end if
  79.  
  80.  b=GetUIElement(4)
  81.  if b=true then
  82.   Call IniWriteValue(sf,so,"BootMenu",1)
  83.  else
  84.   Call IniWriteValue(sf,so,"BootMenu",0)
  85.  end if
  86.  
  87.  b=GetUIElement(5)
  88.  if b=true then
  89.   Call IniWriteValue(sf,so,"BootWarn",1)
  90.  else
  91.   Call IniWriteValue(sf,so,"BootWarn",0)
  92.  end if
  93.  
  94.  Restart
  95. End Sub
  96.  
  97. 'Called when the Plugin is about to be removed from memory
  98. Sub Plugin_Terminate
  99.  Call FileSetAttribute(sf,"S+")
  100.  Call FileSetAttribute(sf,"R+")
  101.  Call FileSetAttribute(sf,"H+")
  102. End Sub
  103.